home *** CD-ROM | disk | FTP | other *** search
/ Acorn User: China / Acorn User China CD-ROM (UK) (Disc B) / Acorn User China CD-ROM (UK) (Disc B).bin / STUTTGART / LANG / GOFER / scripts_Grundy < prev    next >
Encoding:
Text File  |  1993-03-08  |  213 b   |  11 lines
  1. --- Grundy numbers
  2.  
  3. data Game = Moves [Game]
  4.  
  5. grundy :: Game -> Int
  6. grundy (Moves gs) = least (\n -> and [n/=grundy g|g<-gs])
  7.  
  8. least p = x where x:_ = [ n | n <- [0 ..], p n ]
  9.  
  10. nim n = Moves [nim m|m<-[0..(n-1)]]
  11.